function kersim=kersim_crisp(a,x,e)
if abs(a-x)>e
    kersim=0;
else
    kersim=1;   
end